home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 8 / Power CD-ROM 8.iso / windows / winutil / cmnprocs.bas < prev    next >
Encoding:
BASIC Source File  |  1992-02-01  |  1006 b   |  32 lines
  1. 'CMNPROCS.BAS -- Since these procedures are in a
  2. ' separate module not attached to any form, they
  3. ' may be called from anywhere in the application
  4.  
  5. Dim Success As Integer
  6.  
  7. 'CMNPROCS.BAS
  8. Sub ExploreHelp (HelpCommand As Long, Topic As Long)
  9.    On Error GoTo HelpError
  10.    Success = WinHelp(hWnd, HelpfileName, HelpCommand, ByVal Topic)
  11.    If Success = 0 Then GoTo HelpError
  12.    Exit Sub
  13. HelpError:
  14.    MsgBox "You must set the MAXWINVB environment variable in your AUTOEXEC.BAT file to the drive and directory where you installed this application's files for it to run correctly.", 0, "Environment Not Set"
  15.    CloseApp Screen.ActiveForm.hWnd
  16. End Sub
  17.  
  18. 'CMNPROCS.BAS --
  19. Sub CloseApp (ByVal hWnd As Integer)
  20.    If Success = 0 Then End
  21.    Success = WinHelp(hWnd, HelpfileName, HELP_QUIT, ByVal NULL)
  22.    End
  23. End Sub
  24.  
  25. 'CMNPROCS.BAS
  26. Sub LblChangeForm (CurrentForm As Form, NewForm As Form)
  27.   
  28.     CurrentForm.Hide  ' Hide itself
  29.     NewForm.Show      ' Move to appropriate form
  30.  
  31. End Sub
  32.